home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 1997 April to September / Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso / products / .wais / Solaris_2 / Config.pm < prev    next >
Text File  |  1995-12-11  |  9KB  |  482 lines
  1. package Config;
  2. require Exporter;
  3. @ISA = (Exporter);
  4. @EXPORT = qw(%Config);
  5.  
  6. $] == 5.000 or die sprintf
  7.     "Perl lib version (5.000) doesn't match executable version (%.3f)\n", $];
  8.  
  9. # This file was created by configpm when Perl was built. Any changes
  10. # made to this file will be lost the next time perl is built.
  11.  
  12. ##
  13. ## This file was produced by running the Configure script. It holds all the
  14. ## definitions figured out by Configure. Should you modify one of these values,
  15. ## do not forget to propagate your changes by running "Configure -der". You may
  16. ## instead choose to run each of the .SH files by yourself, or "Configure -S".
  17. ##
  18. #
  19. ## Configuration time: Wed Mar  8 18:35:33 PST 1995
  20. ## Configured by: hooper
  21. ## Target system: sunos bcci 5.4 generic_101945-13 sun4m sparc 
  22. #
  23.  
  24. $config_sh=<<'!END!OF!CONFIG!';
  25. dynamic_ext=''
  26. extensions='Fcntl NDBM_File POSIX SDBM_File'
  27. static_ext='Fcntl NDBM_File POSIX SDBM_File'
  28. osname='solaris'
  29. osvers='2.4'
  30. archlib='/opt/PUBperl5/lib/perl5/sun4-solaris'
  31. ccflags=''
  32. cppflags=''
  33. intsize='4'
  34. libpth='/lib /usr/lib /usr/ccs/lib'
  35. sig_name='ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM USR1 USR2 CHLD PWR WINCH URG POLL STOP TSTP CONT TTIN TTOU VTALRM PROF XCPU XFSZ WAITING LWP FREEZE THAW'
  36. so='so'
  37. sharpbang='#!'
  38. shsharp='true'
  39. startsh='#!/bin/sh'
  40. Author=''
  41. CONFIG='true'
  42. Date='$Date'
  43. Header=''
  44. Id='$Id'
  45. Locker=''
  46. Log='$Log'
  47. Mcc='Mcc'
  48. PATCHLEVEL='0'
  49. RCSfile='$RCSfile'
  50. Revision='$Revision'
  51. Source=''
  52. State=''
  53. afs='false'
  54. alignbytes='8'
  55. aphostname=''
  56. archlibexp='/opt/PUBperl5/lib/perl5/sun4-solaris'
  57. archname='sun4-solaris'
  58. awk='awk'
  59. bash=''
  60. bin='/opt/PUBperl5/bin'
  61. binexp='/opt/PUBperl5/bin'
  62. bison='bison'
  63. byacc='byacc'
  64. byteorder='4321'
  65. c='\c'
  66. castflags='0'
  67. cat='cat'
  68. cc='gcc'
  69. cccdlflags=''
  70. ccdlflags=''
  71. cf_by='hooper'
  72. cf_time='Wed Mar  8 18:35:33 PST 1995'
  73. chgrp=''
  74. chmod=''
  75. chown=''
  76. clocktype='int'
  77. compress=''
  78. contains='grep'
  79. cp='cp'
  80. cpio=''
  81. cpp='cpp'
  82. cpp_stuff='42'
  83. cpplast='-'
  84. cppminus='-'
  85. cpprun='gcc -E'
  86. cppstdin='gcc -E'
  87. cryptlib=''
  88. csh='csh'
  89. d_Gconvert='gconvert((x),(n),(t),(b))'
  90. d_access='define'
  91. d_alarm='define'
  92. d_archlib='define'
  93. d_attrib='define'
  94. d_bcmp='undef'
  95. d_bcopy='undef'
  96. d_bsdpgrp='undef'
  97. d_bzero='undef'
  98. d_casti32='define'
  99. d_castneg='define'
  100. d_charsprf='undef'
  101. d_charvspr='undef'
  102. d_chown='define'
  103. d_chroot='define'
  104. d_chsize='undef'
  105. d_closedir='define'
  106. d_const='define'
  107. d_crypt='define'
  108. d_csh='undef'
  109. d_cuserid='define'
  110. d_dbl_dig='define'
  111. d_difftime='define'
  112. d_dirnamlen='undef'
  113. d_dlerror='define'
  114. d_dlopen='define'
  115. d_dlsymun='undef'
  116. d_dosuid='undef'
  117. d_drem='undef'
  118. d_dup2='define'
  119. d_eunice='undef'
  120. d_fchmod='define'
  121. d_fchown='define'
  122. d_fcntl='define'
  123. d_fd_macros='define'
  124. d_fd_set='define'
  125. d_fds_bits='define'
  126. d_fgetpos='define'
  127. d_flexfnam='define'
  128. d_flock='undef'
  129. d_fmod='define'
  130. d_fork='define'
  131. d_fpathconf='define'
  132. d_fsetpos='define'
  133. d_getgrps='define'
  134. d_gethent='define'
  135. d_gethname='undef'
  136. d_getlogin='define'
  137. d_getpgrp2='undef'
  138. d_getpgrp='define'
  139. d_getppid='define'
  140. d_getprior='undef'
  141. d_group='undef'
  142. d_htonl='define'
  143. d_index='undef'
  144. d_isascii='define'
  145. d_killpg='undef'
  146. d_link='define'
  147. d_linuxstd='undef'
  148. d_locconv='define'
  149. d_lockf='define'
  150. d_lstat='define'
  151. d_mblen='define'
  152. d_mbstowcs='define'
  153. d_mbtowc='define'
  154. d_memcmp='define'
  155. d_memcpy='define'
  156. d_memmove='define'
  157. d_memset='define'
  158. d_mkdir='define'
  159. d_mkfifo='define'
  160. d_mktime='define'
  161. d_msg='define'
  162. d_msgctl='define'
  163. d_msgget='define'
  164. d_msgrcv='define'
  165. d_msgsnd='define'
  166. d_mymalloc='define'
  167. d_nice='define'
  168. d_oldsock='undef'
  169. d_open3='define'
  170. d_passwd='undef'
  171. d_pathconf='define'
  172. d_pause='define'
  173. d_phostname='undef'
  174. d_pipe='define'
  175. d_portable='define'
  176. d_pwage='define'
  177. d_pwchange='undef'
  178. d_pwclass='undef'
  179. d_pwcomment='define'
  180. d_pwexpire='undef'
  181. d_pwquota='undef'
  182. d_readdir='define'
  183. d_readlink='define'
  184. d_rename='define'
  185. d_rewinddir='define'
  186. d_rmdir='define'
  187. d_safebcpy='undef'
  188. d_safemcpy='undef'
  189. d_seekdir='define'
  190. d_select='define'
  191. d_sem='define'
  192. d_semctl='define'
  193. d_semget='define'
  194. d_semop='define'
  195. d_setegid='define'
  196. d_seteuid='define'
  197. d_setlinebuf='undef'
  198. d_setlocale='define'
  199. d_setpgid='define'
  200. d_setpgrp2='undef'
  201. d_setpgrp='define'
  202. d_setprior='undef'
  203. d_setregid='undef'
  204. d_setresgid='undef'
  205. d_setresuid='undef'
  206. d_setreuid='undef'
  207. d_setrgid='undef'
  208. d_setruid='undef'
  209. d_setsid='define'
  210. d_shm='define'
  211. d_shmat='define'
  212. d_shmatprototype='define'
  213. d_shmctl='define'
  214. d_shmdt='define'
  215. d_shmget='define'
  216. d_socket='define'
  217. d_sockpair='define'
  218. d_statblks='define'
  219. d_stdstdio='define'
  220. d_strchr='define'
  221. d_strcoll='define'
  222. d_strctcpy='define'
  223. d_strerrm='strerror(e)'
  224. d_strerror='define'
  225. d_strxfrm='define'
  226. d_suidsafe='define'
  227. d_symlink='define'
  228. d_syscall='define'
  229. d_sysconf='define'
  230. d_sysernlst=''
  231. d_syserrlst='define'
  232. d_system='define'
  233. d_tcgetpgrp='define'
  234. d_tcsetpgrp='define'
  235. d_telldir='define'
  236. d_time='define'
  237. d_times='define'
  238. d_truncate='define'
  239. d_tzname='define'
  240. d_umask='define'
  241. d_uname='define'
  242. d_vfork='undef'
  243. d_void_closedir='undef'
  244. d_voidsig='define'
  245. d_voidtty=''
  246. d_volatile='define'
  247. d_vprintf='define'
  248. d_wait4='undef'
  249. d_waitpid='define'
  250. d_wcstombs='define'
  251. d_wctomb='define'
  252. d_xenix='undef'
  253. date='date'
  254. defvoidused='15'
  255. direntrytype='struct dirent'
  256. dlext='none'
  257. dlsrc='dl_none.xs'
  258. echo='echo'
  259. egrep='egrep'
  260. emacs=''
  261. eunicefix=':'
  262. expr='expr'
  263. find='find'
  264. flex=''
  265. fpostype='fpos_t'
  266. gcc=''
  267. gccversion='2.5.8'
  268. gidtype='gid_t'
  269. glibpth='/usr/shlib /lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/local/lib'
  270. grep='grep'
  271. groupcat=''
  272. groupstype='gid_t'
  273. h_fcntl='true'
  274. h_sysfile='false'
  275. hint='previous'
  276. hostcat=''
  277. huge=''
  278. i_bsdioctl=''
  279. i_db='undef'
  280. i_dbm='undef'
  281. i_dirent='define'
  282. i_dld='undef'
  283. i_dlfcn='define'
  284. i_fcntl='define'
  285. i_float='define'
  286. i_gdbm='undef'
  287. i_grp='define'
  288. i_limits='define'
  289. i_malloc='define'
  290. i_math='define'
  291. i_memory='undef'
  292. i_ndbm='define'
  293. i_neterrno='undef'
  294. i_niin='define'
  295. i_pwd='define'
  296. i_sgtty='undef'
  297. i_stdarg='define'
  298. i_stddef='define'
  299. i_stdlib='define'
  300. i_string='define'
  301. i_sysdir='undef'
  302. i_sysfile='undef'
  303. i_sysfilio='define'
  304. i_sysin='undef'
  305. i_sysioctl='define'
  306. i_sysndir='undef'
  307. i_sysparam='define'
  308. i_sysselct='define'
  309. i_syssockio=''
  310. i_systime='define'
  311. i_systimek='undef'
  312. i_systimes='define'
  313. i_termio='undef'
  314. i_termios='define'
  315. i_time='undef'
  316. i_unistd='define'
  317. i_utime='define'
  318. i_varargs='undef'
  319. i_varhdr='stdarg.h'
  320. i_vfork='undef'
  321. incpath=''
  322. inews=''
  323. installarchlib='/opt/PUBperl5/lib/perl5/sun4-solaris'
  324. installbin='/opt/PUBperl5/bin'
  325. installmansrc='/opt/PUBperl5/man/manl'
  326. installprivlib='/opt/PUBperl5/lib/perl5'
  327. installscript='/opt/PUBperl5/bin'
  328. known_extensions='DB_File Fcntl GDBM_File NDBM_File ODBM_File POSIX SDBM_File Socket'
  329. ksh=''
  330. large=''
  331. lddlflags=''
  332. ldflags=''
  333. less=''
  334. libc='/usr/lib/libc.so'
  335. libs='-lsocket -lnsl -ldl -lm -lc -lcrypt'
  336. libswanted='net socket inet nsl nm ndbm gdbm dbm db malloc dl dld sun m c cposix posix ndir dir crypt bsd BSD PW x'
  337. line='line'
  338. lint=''
  339. lkflags=''
  340. ln='ln'
  341. lns='/bin/ln -s'
  342. lp=''
  343. lpr=''
  344. ls='ls'
  345. lseektype='off_t'
  346. mail=''
  347. mailx=''
  348. make=''
  349. mallocobj='malloc.o'
  350. mallocsrc='malloc.c'
  351. malloctype='void *'
  352. manext='l'
  353. mansrc='/opt/PUBperl5/man/manl'
  354. mansrcexp='/opt/PUBperl5/man/manl'
  355. medium=''
  356. mips=''
  357. mips_type=''
  358. mkdir='mkdir'
  359. models='none'
  360. modetype='mode_t'
  361. more=''
  362. mv=''
  363. mydomain=''
  364. myhostname='bcci'
  365. myuname='sunos bcci 5.4 generic_101945-13 sun4m sparc '
  366. n=''
  367. nm_opt='-p'
  368. nroff='nroff'
  369. optimize='-O'
  370. orderlib='false'
  371. package='perl5'
  372. passcat=''
  373. perl='perl'
  374. pg=''
  375. phostname='hostname'
  376. plibpth=''
  377. pmake=''
  378. pr=''
  379. prefix='/opt/PUBperl5'
  380. privlib='/opt/PUBperl5/lib/perl5'
  381. privlibexp='/opt/PUBperl5/lib/perl5'
  382. prototype='define'
  383. randbits='15'
  384. ranlib=':'
  385. rm='rm'
  386. rmail=''
  387. runnm='false'
  388. scriptdir='/opt/PUBperl5/bin'
  389. scriptdirexp='/opt/PUBperl5/bin'
  390. sed='sed'
  391. selecttype='fd_set *'
  392. sendmail=''
  393. sh=''
  394. shar=''
  395. shmattype='void *'
  396. signal_t='void'
  397. sizetype='size_t'
  398. sleep=''
  399. smail=''
  400. small=''
  401. sockethdr=''
  402. socketlib=''
  403. sort='sort'
  404. spackage=''
  405. spitshell='cat'
  406. split=''
  407. ssizetype='ssize_t'
  408. stdchar='unsigned char'
  409. strings='/usr/include/string.h'
  410. submit=''
  411. sysman='/usr/man/man1'
  412. tail=''
  413. tar=''
  414. tbl=''
  415. test='test'
  416. timeincl='/usr/include/sys/time.h '
  417. timetype='int'
  418. touch='touch'
  419. tr='tr'
  420. troff=''
  421. uidtype='uid_t'
  422. uname='uname'
  423. uniq='uniq'
  424. usedl='undef'
  425. usemymalloc='y'
  426. usenm='false'
  427. useposix='true'
  428. usevfork='false'
  429. usrinc='/usr/include'
  430. uuname=''
  431. vi=''
  432. voidflags='15'
  433. xlibpth='/usr/lib/386 /lib/386'
  434. yacc='bison -y'
  435. yaccflags=''
  436. zcat=''
  437. !END!OF!CONFIG!
  438.  
  439.  
  440. tie %Config, Config;
  441. sub TIEHASH { bless {} }
  442. sub FETCH { 
  443.     # check for cached value (which maybe undef so we use exists not defined)
  444.     return $_[0]->{$_[1]} if (exists $_[0]->{$_[1]});
  445.  
  446.     my($value); # search for the item in the big $config_sh string
  447.     return undef unless (($value) = $config_sh =~ m/^$_[1]='(.*)'\s*$/m);
  448.  
  449.     $value = undef if $value eq 'undef'; # So we can say "if $Config{'foo'}".
  450.     $_[0]->{$_[1]} = $value; # cache it
  451.     return $value;
  452. }
  453.  
  454. sub FIRSTKEY {
  455.     $prevpos = 0;
  456.     my $key;
  457.     ($key) = $config_sh =~ m/^(.*)=/;
  458.     $key;
  459. }
  460.  
  461. sub NEXTKEY {
  462.     my ($pos, $len);
  463.     $pos = $prevpos;
  464.     $pos = index( $config_sh, "\n", $pos) + 1;
  465.     $prevpos = $pos;
  466.     $len = index( $config_sh, "=", $pos) - $pos;
  467.     $len > 0 ? substr( $config_sh, $pos, $len) : undef;
  468. }
  469.  
  470. sub EXISTS{ 
  471.      exists($_[0]->{$_[1]})  or  $config_sh =~ m/^$_[1]=/m; 
  472. }
  473.  
  474. sub readonly { die "\%Config::Config is read-only\n" }
  475.  
  476. sub STORE { &readonly }
  477. sub DELETE{ &readonly }
  478. sub CLEAR { &readonly }
  479.  
  480.  
  481. 1;
  482.